/* GUI CONVERTED from adadcgd1.p (converter v1.76) Mon Apr 21 19:43:30 2003 */
/* adadcgd1.p - ADDRESS CODE CHANGE -SUBPROGRAM                              */
/* Copyright 1986-2003 QAD Inc., Carpinteria, CA, USA.                       */
/* All rights reserved worldwide.  This is an unpublished work.              */
/* $Revision: 1.7.1.7 $                                                      */
/*V8:ConvertMode=Maintenance                                                 */
/* REVISION: 7.3      CREATED:       01/23/96   BY: ame *F0WW*               */
/* REVISION: 8.6      LAST MODIFIED: 10/04/96   BY: *K003* Steve Goeke       */
/* REVISION: 8.6      MODIFIED:      11/19/96   BY: *H0PD* Aruna Patil       */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane         */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan        */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan        */
/* REVISION: 9.0      LAST MODIFIED: 03/10/99   BY: *M0B3* Michael Amaladhas */
/* REVISION: 9.0      LAST MODIFIED: 03/13/99   BY: *M0BD* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane  */
/* REVISION: 9.1      LAST MODIFIED: 08/11/00   BY: *N0KK* jyn               */
/* REVISION: 9.1      LAST MODIFIED: 02/06/01   BY: *N0VG* Jyoti Thatte      */
/* Revision: 1.7.1.6     BY: Ashish M.          DATE: 04/29/02  ECO: *N1HJ*  */
/* $Revision: 1.7.1.7 $    BY: Narathip W.        DATE: 04/17/03  ECO: *P0Q4*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/
/* Split from adadcgd.p to get below 63k limit                                */

{mfdeclre.i}
/* EXTERNAL LABEL INCLUDE */
{gplabel.i}
{cxcustom.i "ADADCGD1.P"}

{gpfilev.i}

define shared variable  addr1     like ad_addr.
define shared variable  addr2     like ad_addr.
define shared variable  cnt_clear like mfc_logical.
define shared variable  type1     like ad_type.
define shared variable  i         as   integer  no-undo.
define shared variable  num_rec   as   integer  no-undo.
define shared variable  record_id as   recid    no-undo.

define shared frame b.

define variable jk as integer.

do with frame b:
   /* STANDARD CODE CHANGE FORM */
   {&ADADCGD1-P-TAG1}
   FORM /*GUI*/ 
      file_desc    label "Data Set" format "x(30)"
      num_rec      label "Records Updated"
   with frame b width 80 down no-attr-space THREE-D /*GUI*/.

   {&ADADCGD1-P-TAG2}

   /* SET EXTERNAL LABELS */
   setFrameLabels(frame b:handle).

   {mfcscg.i vd_mstr vd_remit addr1 addr2}
   {mfcscg.i vp_mstr vp_vend  addr1 addr2}

   {adadcg4.i qo_mstr addr1 addr2 qo_cust qo_bill qo_ship "qo_slspsn" 4 " "}

   /* SHIPPING GROUP ADDRESSES AND CARRIERS */

   {mfcscg.i sgad_det sgad_addr    addr1 addr2}
   {mfcscg.i absc_det absc_carrier addr1 addr2}
   {mfcscg.i sgcd_det sgcd_carrier addr1 addr2}
   {mfcscg.i tx2d_det tx2d_carrier addr1 addr2}
   {mfcscg.i ieh_hist ieh_addr     addr1 addr2}

end. /* DO WITH FRAME b */
